home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / dev / lang / amigatalk.lha / testfiles / TestImage1 < prev    next >
Text File  |  2002-02-13  |  714b  |  40 lines
  1. scr <- Screen new
  2. scr setScreenModeID: 16r40D20001
  3. scr            open: 'TestScreen'
  4.  
  5. win <- Window new: 'TestWindow'
  6.  
  7. win setFlags:       16r100F
  8. win setIDCMPFlags:  16r140
  9. win openOnScreen:   scr
  10.  
  11. crs <- Colors new: win
  12. crs  makeColorMap: 16
  13. crs    loadColors: 16 from: 'Amigatalk:AmigaTalk.colors'
  14.  
  15. scr screenToFront
  16.  
  17. im2 <- Image new
  18.  
  19. im2 registerTo: win
  20.  
  21. im2 addImage: 34 height: 30 depth: 8
  22.  
  23. im2 setImageDataFrom: 'AmigaTalk:FourDiamond.asc'
  24.  
  25. im2 drawImageAt: 400 @ 300
  26.  
  27. im2 saveImageIn: 'AmigaTalk:TestImage.asc'
  28.  
  29. im2 setImageDataFrom: 'AmigaTalk:TestImage.asc'
  30.  
  31. im2 drawImageAt: 20 @ 20
  32.  
  33. im2 disposeImage
  34.  
  35. crs dispose
  36.  
  37. ('Done with TestImage!') print
  38.  
  39. ('Do NOT forget to close the window & Screen!') print
  40.